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Micro-organ ism identification 

5 The present invention concerns the identification of 
microorganisms, and has particular reference to the 
differentiation between strains off bacteria. Our 
current pending patent application numbered WO 
98/09314 describes and claims a method and apparatus 

10 for characterizing microorganisms using matrix 
assisted laser desorption ionisation time of flight 
mass spectrometry (MALDI-TOF-MS) spectral data for a 
range on known of microorganisms. The specification 
discloses that spectral data is included in a 

15 database and a sample of an unidentified 
microorganism is prepared and compared using suitable 
comparison means with the spectral data in the 
database. 

20 MALDI-TOF-MS spectral data presents some difficulty 
in analysis since in the original analog spectral 
data, the 'intensities are not reproducible. In some 
spectra, the weak spectral peaks merge into the 
background "noise". Furthermore, the precision of 

25 the MALDI-TOF-MS machine is such that the mass 
position on each spectral peak is not exactly 
reproducible and a small element of "shift" for any 
gTve'n"~pea7:""Ts' likely to occur. This is particularly 
noticeable towards the high mass end of the spectrum. 

30 
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Existing attempts to analyze the spectral data from 
MALDI-TOF-MS analysis have relied on the Jacquard 
method. According to this method, the spectral data 
is analyzed at a number of data points, typically at 
a number of data points greater than 16k. Each data 
point reports the presence or the absence of a peak 
at that particular point on the spectrum. The data 
point reports only the presence or the absence of a 
spectral peak and does not include any information 
what so ever concerning the intensity or relative 
intensity of any peak located at that position. The 
reported information from the data point is stored as 
an absolute number within the database. Using this 
technique there is no measure or relative intensity 
between the peaks and troughs or relative peaks 
within the spectrum being analyzed. Furthermore, 
because of the non-reproducibili ty of the spectral 
intensity, in some instances, significant but low 
intensity peaks will not be reported or considered. 
If the background noise level with in the system is 
relatively high, significant data may be lost due to 
it being simply discounted. Since the data set in any 
of one particular spectrum is very large and may be 
of the order of 16K. or 32K data points, significant 
and critical amount of characterizing information 
would simply be discounted with a result that 
critical comparison and analysis within the database 
cannot^anci"couIci "not - t~ake - placeT ~ 



a small database, the time of calculation and 



comparison is acceptable, but with a large database, 
a full comparison using the Jacquard method will take 
many days to complete. In order to reduce calculation 
times, it is necessary either to target only part of 
5 the spectral data or to discard some of the data from 
the total spectrum. In either case this results in a 
further degradation of potential accuracy, and 
positive identification or rejection is less likely 
to be obtained. 

10 

In the ideal analytical pattern recognition system, 
the system should report: — 

(A) this example is of class "1" or 

15 

(B.) this example is from none of these classes or 



(C) this example is too hard for me to consider. 

20 The second category is called "outliers", while the 
third category is referred to as "rejects" or 
"doubt". Both categories of rejection have great 
importance in applications, particularly in medical 
diagnostic aids, where there is a clear need for 

25 certainty. A sample must either match, must be 
rejected out right, or must clearly be identified as 
the "doubtful" 



For the foregoing, therefore, it will be seen that 
there is a need for an improved and more effective 



3 



diagnostic engine for use in the analysis of MALDI- 
TOF-MS spectral data. 

According to one aspect of the present invention, 
5 therefore, there is provided a method off 
characterizing microorganisms which method comprises: 



providing a database of MALDI-TOF-MS spectral data 
K) for a range of known of microorganisms, 

preparing a sample of unidentified microorganisms and 
obtaining the MALDI-TOF-MS spectral data there of 

15 and comparing, using suitable comparison means, the 
spectral data so obtained with spectral data 
contained in the database, there by to identify a 
known microorganism having the same or similar 
spectra 1 data, 



20 



25 



characterized in that the comparison means comprises 
the steps of : - 

defining a plurality of data points in the spectrum 
across the complete range of the spectral data, 
converting each data point to a vector spatial 
function, said function being characteristic of the 
position shape and relative intensity of the spectral 
data at that point 
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assembling the vector spatial 
spectrum in question as a 
determining the kernel function 
said cluster, 

determining a radial base function for each kernel 
which is characteristic of all the information in 
that spectrum 

and comparing that radial base function of the 
cluster kernel of the sample microorganism with the 
radial base function of the cluster kernel of all the 
other micro-organism spectra within the database. 

In one aspect of the present invention, the spectral 
data may be normalized to provide an intensity 
function, which is a measure of the relative 
intensity of each spectral peak. In another 
embodiment, the normalization procedure may compare 
all the peak intensities as a proportion of the 
highest peak, which is rated at 1. Ail other peaks 
then have a value under one. 

In another aspect of the present invention, the 
radial base function of the spectral data of media is 
applied across a neural network. The neural network 
may also be employed to analyze pattern distributions 
of radial base functions of the local kernel clusters 
using the Cover Theorem. In further aspect of the 
invention, the vector spatial functions of the 



functions for the 
cluster and then 
in respect of the 



spectral data points may be displayed as a cluster in 
high dimensional space. The local kernel of each 
cluster of spectral data points in high dimensional 
space can be determined by a single set of searchable 
5 parameters. Thus instead of searching and comparing 
16K. data points for each spectrum, all that is 
necessary is the comparison of the radial base 
functions of the local kernel clusters for each of 
the spectra within the database and compared it with 
10 the radial base functions of the local kernel cluster 
for the unknown sample. This has the effect of 
reducing the burden on the search engine while at the 
same time speeding up the search very considerably 
compared with methods hitherto employed or proposed. 

15 

The use of an artificial neural network to assist in 
optimization of the search data has the advantage 
that prior knowledge of models and associated careful 
network design is unnecessary. The use of a search 

20 engine in combination with MALDI-TOF-MS spectrum to 
make available high-performance mass spectral 
analysis tool, which may. be operated by the non- 
specialist. The equipment required to perform the 
analysis is relatively inexpensive, and the search 

25 engine forming part of the invention enables rapid 
and easy searching of an extensive database of 
microorganisms . 



The database in accordance with the present invention 
3<> may comprise the radial base functions of the kernel 



6 



@ 



of each cluster of spectral data in hide dimensional 
space. In this way, none of the information relating 
to the spectrum is lost or discarded; and all of 
these included in the resulting radial base function 
5 of the cluster kernel and serve to determine the 
relative spatial position of the kernel in high 
dimensional space. This means that the spectral data 
may be recorded in digital form for ease of 
searching. The presence and availability of all the 
10 data points within the cluster for each spectrum 
permits the re-constitution of each spectrum from 
this information so that spectral data may be re- 
presented in graphic as well as digital or numeric 
form. 

15 

The invention also includes a database comprising the 
radial base functions of the known microorganisms for 
comparison with the organisms themselves. 

20 Following is a description by way of example only of 
one method of carrying the invention into effect. 

In the drawings: 



25 Figure i is a schematic representation of a neural 
network for use in the present invention. 

Figure 2 is an algorithm for arriving at the radial 
base function for any particular spectrum. 

30 
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Figure 3 is the detail of a program for use in the 
analytical process of the present invention; 

The drawing of figure 1 is a schematic representation 
5 of a neural network, which can be adapted for use in 
the apparatus of the present invention. In this case, 
the radial base function of the kernel of the cluster 
of spectral data in respect of the sample is fed into 
the output neurone. This information is processed by 

10 a multitude of processors in the output layer and is 
presented at the output neurones. In the example 
shown in figure 1, a single output neurone is shown 
as the output layer. In accordance with the present 
invention, a multitude of output neurones would be 

15 provided, one in respect of each sample in the 
database available for comparison. The processed 
radial base function data is provided at each of the 
output neurones and is compared with the radial base 
function data for the sample with the corresponding 

20 function for each microorganism spectrum within the 
database. An exact match or a very close match will 
result in a clear identification of the sample 
microorganism . 

25 Where there is no direct correspondence between the 
radial base function of the kernel of the data 
cluster for sample with corresponding radial base 
functions in the database, then a vector will be 
presented detailing the clusters in high dimensional 

30 space nearest to the radial base function of the 
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sample, which will give an indication of the degree 
of similarity or overlap between the unknown sample 
and the identified similar spectra within the 
database. This will enable the analyst to call up 
the graphic data relating to the particular "close 
matches" and to compare them visually. 

It will be appreciated by the person skilled in the 
art that the radial base function of each cluster of 
spectral data in high dimensional space will be a 
result of all the features of each data point within 
the cluster and that the radial base function of 
kernel will be determined, spatially, by the 
individual values of the vector functions of each 
data point. Thus several similar microorganisms that 
are not identical may reside in the same proximate 
area of high dimensional space. The relative position 
of each kernel will be determined by the extent of 
the differences in their spectral details. If the 
microorganisms are of the same genus then the two 
kernels defined by the spectral clusters will 
substantially coincide, and the greater the extent of 
the overlap the greater the similarity of the 
microorganisms . 

Figure 2 is an algorithm for determining the radial 
base functions of the cluster kernel for any given 
spectrum. Figure 3 is the detail of a computer 
program for performing the algorithm of figure 2. 



Input Layer 



Hidden Layer 



Load Data Base 
Wl f W2.bl,b2 etc 



Load an unknown Spectrum of the sample 
X 



U 



Normalise x to calculate the relative 
intensity 



Biult an M dimensional vector space R r 
where M=data size 

! 



Calculate the distance between X and each 
row of Wl in R m 



U 

Calculate the o/p of the local kernel 
function 
A= exp-(di+bli) 2 



Calculate the o/p of tlie network 



n - ... 



Find the best match 



FIGURE 2 



FIGURE 3 



Program Listing 



#include <formatio.h> 
#include <analysis.h> 

#include <utility . h> 
#include <ansi_c . h> 
#include <userint*h> 
#include f, sample4 . h" 

#define NoData 125 
#define DataSize 16370 

static int panelHandle; 

static int status; 

static FILE *f ile_handle; 

static char pathname [ MAX_PATHNAME_LEN ] ; 

static char directory [ MAX_PATHNAME_LEN ] ; 

int Load_Sample__OK=0 ; 
int Locd_DataBase_OK=0 ; 

int err; 

/♦double mean_value; 

double datapoints[ 100 ] ; 

*/ 

double P[DataSize]; 
double P_index[ DataSize] ; 

double wl [NoData] [DataSize! ; 
double w2 [NoData] [NoData] ; 
double bl [ NoData ] ; 
double b2 [ NoData] ; 

double al [NoData]; 
double a2 [NoData ]; 

double n[ NoData]; 
double x[ DataSize]; 
double y[DataSize]; 
double y2[DataSize] ; 
double dist [NoData ] ; 



/***************************************** 

int main (int argc, char *argv[ ]) 
{ 

if (InitCVIRTE (0, argv, 0 ) == o ) /* Needed if linking in external compil< 
r; harmless otherwise */ 

return -1; /* out of memory */ 
if ((panelHandle = LoadPanel (0, "sample4 . uir" , PANEL)) < 0) 

return -l; 



e . DisplayPanel (panAandle); 
ftftpUserlnterf ace 

int CVICALLBACK Shutdown (int panel, int control, int event, 
void *callbackData , int eventDatal, int eventData2) 

switch (event) 
{ 

case EVENT_COMMIT: 

QuitUserlnterf ace ( 0 ) ; 
break ; 

case EVENT_RIGHT_DOUBLE_CLICK: 
break ; 

) 

return 0; 

} 

/****************************^ 

int C VI CALLBACK AcquireData (int panel, int control, int event, 
void *ca.l IbackData , int eventDatal, int eventData2) 

{ 

double norm; 

int i=0; 
int j ; 
double M,m; 
char buff [80] ; 

int err,s,q; 

switch (event) { 

case EVENT_COMMIT: 

if ( Load_DataBase_OK ) 
{ 

i f ( Load_Sareple__OK ) 
{ 

DeleteGraphPlot (panelHandle, PANEL_WAVEFORM_2 , -1, 

VAL_IMMEDIATE_DRAW) ; 

SetCtrlVal (panelHandle, PANEL_ELEMENT , "Searching , Please Wait" ); 

_ . fori ( s = 0 ;_ s<JloDa.ta.; _ s_++_) . — — - - 

{ 

for (q^O; q<DataSize; q+ + ) 
{ 

x[q]=wl[s] [q] ; 

/* x[q]=(x[q]-P[q])*(x[q]-P[q]); 
dist[s]=dist[s]+x[q] ; 

*/ 

) 



SublD (x, P, dWaSize, y) ; 
MullD (y, y, DataSize, y2); 
SumlD (y2, DataSize, &norm); 
norm=sqrt(norm) ? 
dist[ s ]=norm; 



/* dist[s]=sqrt(dist[s] ) ; */ 

n[s]=dist[s]*bl[s] ; 
al[s]=exp(-n[s]*n[s] ) ; 



/ 



/ 



for (q=0; q<NoData; q++ ) 
{ 



al [ s ] =w2 [ s ] *al [ s ] +b2 [ s ] ; 
/* n[i]=n[i]*b; 

al[i] = exp (-n[i]*n[i] ) ; 
datapoints[ i ] = rand( )/32768 . 0 ; 
} 

*/ 

> 

MaxMinlD (al, NoData , &M, &i, &m, &j); 
QScalelD (al, NoData, al, &M) ; 
j=i+l; 

PlotY ( panelHandle , PANEL_WAVEFORM_2 , al , NoData , VAL_DOUBLE , 

VAL_THIN_LINE, VAL_EMPTY_SQUARE , VAL_SOLID, 1, VAL_WHITE) 



switch ( j ) 
{ 



case 0; 



Fmt (buff, "%s (%d) ,, / t, No Sample was selected" , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 1 : 



Fxnt (buff, "%s (%d) " , "Acina, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 2 : 



Fmt (buff, "%s ( %d) 11 , "alcal , Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 3 : 



Fmt (buff, M %s ( %d) " , "baccer , Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 



case 4 : 



Fmt (A f ' "%s (%d)" / "baccer2 / Elndfct No." , i 

'SetCti^al (panelHandle, PANEL_ELe1Bjt , buff); 

break; 

case 5 : 

Fmt (buff, "%s (%d)" , "bacmy, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 6: 

Fmt (buff, "%s (%d)" / "bacsub / Elment No." , i) 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 7: 

Fmt (buff, "%s (%d) 11 , "citd, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 8 : 

Fmt (buff, "%s (%d) " , "citd2 , Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 9: 

Fmt (buff, "%s (%d)","citf, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 10: 

Fmt (buff, "%s (%d)","citf 2, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 11: 

Fmt (buff, "%s (%d)" / "citf 3, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 12: 

Fmt (buff, "%s ( %d) " , "ecolil , Elment No." , i) 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 1 3 : 



Fmt (buff, "%s ( %d) " , "ecoli2 , Elment No." , i) 



SetCti^^il (panelHandle, PANEL_ELEI^^T , buff); 
break; 



case 14: 



Fmt (buff, «%s (%d)","ecoli3, Elment No," , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 15: 



Fmt (buff, "%s (%d)","ecoli4, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 16: 



Fmt (buff, "%s (%d) ,, / ,, ecoli26, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 17: 



Fmt (buff, "%s (%d) " , "ecoli27, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 18: 



Fmt (buff, "%s (%d)" / "ecoli28, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT, buff); 



break ; 
case 19: 



Fmt (buff, "%s (%d) M ,"ecoli29, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 20: 



Fmt (buff, "%s (%d) ,! , M ecoli30 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 21: 



Fmt (buff, "%s ( %d) " , ,! ecoli31 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT, buff); 



break ; 
case 22: 



Fmt (buff, "%s ( %d) " , "ecoli32 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 



case 23: 



Fmt (buff, "%s (%d)","ecoli33, Elment No." , i) 
SetCtrlVal (panelHandle , PANEL_ELEMENT , buff); 



break; 
case 24: 



Fmt (buff, "%s (%d)","ecoli34, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 25: 



Fmt (buff, "%s ( %d) " , "ecoli35 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 26: 



Fmt (buff, " %s (%d) " , "ent, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT, buff); 



break; 
case 27: 



Fmt (buff, "%s (ld)","entc, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 28: 



Fmt (buff, "%s (%d)" , "entd, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 29: 



Fmt (buff, "%s ( %d) " , "entf , Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 30: 



Fmt— (~bu-f-f-,— s— (-%d-) u / , entf-2 7 -E4meRt~-No,J , ~ r -i )-;— 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 31: 



Fmt (buff, "%s (%d)","entf 3, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 



case 32: 



Fmt (buff, "%s (%d)","entf4, Elment No." , i); 
SetCtrlVal ( panelHandle , PANEL_ELEMENT, buff); 



break; 
case 33: 



Fmt (buff, "%s (%d)","entf5, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 34: 



Fmt (buff, "%s (%d)" ,"entf6, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 35: 



Fmt (buff, "%s (%d)" ,"entf7, Elment No." , i ) ; 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 36: 



Fmt (buff, "%s (%d)","entvre, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT, buff); 



break; 
case 37: 



Fmt (buff, "%s ( %d) " , "gonl , Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 38: 



Fmt (buff, "%s ( %d) 11 , "gon2 , Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff) 



break ; 
case 39: 



Fmt (buff, "%s ( %d) " , ,! haf alv, Elment No." , i) 
SetCtr-lVa-r ( pan el-Han dley "PANEL^EtEMENT buf f)r 



break ; 
case 40: 



Fmt (buff, "%s (%d)" ,"keba, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 



case 41 : 



Fmt (buff, »%s (%d)","listg,. Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 42: 

Fmt (buff, "%s (%d)" ,"listi, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff in- 
break; 
case 43: 

Fmt (buff, "%s (%d)" / "listm / Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 44: 

Fmt (buff, "%s (%d)","listm3, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 45: 

Fmt (buff, "%s (%d)","listm4, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 46: 

Fmt (buff, "%s (%d)","listmu, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 47: 

Fmt (buff, "%s ( %d) " , "meningl , Elment No." , i) 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 48: 

Fmt (buff, "%s ( %d) " , "mening2 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 49: 

Fmt (buff, "%s ( %d) " , "nelong, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 



case 50: 



Fmt (buff, "%s (%d) " , "nf lavl, Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 51: 

Fmt (buff, "%s (%d)" ,"nflav2, Elment No." , i) 

SetCtrlVal ( panelHandle , PANEL^ELEMENT , buff); 

break; 

case 52: 

Fitit (buff, "%s (%d) " , "nsicca, Elment No." , i) 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 53: 

Fmt (buff, "%s (%d)","prol, Elment No." , i); 

SetCtrlVal ( panelHandle , PANEL^ELEMENT , buf f ) ; 

break ; 

case 54 : 

Fmt (buff, "%s ( %d) " , "pro2 , Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 55: 

Fmt (buff, "%s (%d)","pro3, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 56: 

Fmt (buff, "%s ( %d) " , "provl , Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 57: 

Fmt (buff, "%s ( %d) " , "pseul , Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break;, _ - _ _ . _ - - _ _ . _ 

case 58: 

Fmt (buff, "%s ( %d) " , "pseua2, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 



.Fmt (b^, "%s (%d)","pseua3, Elme^^No." , i) 

SetCtrlVal ( panelHandle , PANEL_ELEMENT, buff in- 



break; 
case 60: 



Fmt (buff, "%s (%d)","sal, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 61: 



Fmt (buff, "%s (%d)","salgl, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 62: 



Fmt (buff, "%s (%d)","salgl0, Elment No." , i), 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 63: 



Fmt (buff, "%s (%d) ,f ,"salg78, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 64 : 



Fmt (buff, »%s (%d)","salt2, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 65: 



Fmt (buff, »%s (%d) " , "saltyp, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 66: 



Fmt (buff, "%s ( %d) " , "saltypl , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break ; 
case 67 : * 



Fmt (buff, "%s ( %d) " , "serrat, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 



case 68 : 



Fmt (Af, "%s (%d)","shig, ElmentA>." , i); 
SetCt^^al (panelHandle, PANEL_ELESKn?, buff); 

break ; 

case 69: 

Fmt (buff, "%s (%d)","staphal, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 70: 

Fmt (buff, fl %s (%d)","stapha2 Elment No." , i); 

SetCtrlVal ( panelHandle , PANEL_ELEMENT , buff); 

break; 

case 71: 

Fmt (buff, "%s (%d)","stapha3, Elment No." , i); 

SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 72: 

Fmt (buff, "%s (%d)","strepl, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break; 

case 73: 

Fmt (buff, "%s (%d) " , "strep2, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL__ELEMENT , buff); 

break ; 

case 74: 

Fmt (buff, "%s ( %d) " , "becol6kl , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 75: 

Fmt (buff, "%s ( %d) " , M becol6k2 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

_c_asje_ _7.6_:_ — 

Fmt (buff, "%s ( %d) " , "becol6k3 , Elment No." , i) 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 

break ; 

case 77: 

Fmt (buff, "%s (%d)","becol6k4, Elment No." , i) 



SetCtr^^l (panelHandle, PANEL_ELE^^fT , buff); 
break; 



case 78 



Fmt (buff, "%s (%d)","pstal6kl, Elment No." , i); 
SetCtrlVal (panelHandle , PANEL„ELEMENT , buff); 



break; 
case 79: 



Fmt (buff, "%s (%d)","pstal6k2, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 
case 80: 



Fmt (buff, "%s (%d)","pstal6k3, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



breaks- 
default : 



Fmt (buff, "%s (%d)", "Unknown, Elment No." , i); 
SetCtrlVal (panelHandle, PANEL_ELEMENT , buff); 



break; 



} 



YGraphPopup ("Result of Search Engine for the Selected Sample" 
al , NoData , VAL_DOUBLE ) ; 



else 

{ 

MessagePopup ("SAMPLE", "Please Load a Sample First"); 
) 

else 
{ 

MessagePopup ("DATA BASE", "Please Load the Data Base First"); 



-break-? - — — 

case EVENT_RIGHT_DOUBLE_CLICK : 
break ; 

} 

return 0 ; 

} 

/***************************^ 



>^int <r*£I CALLBACK LoadDcfl^Base ( int panel, int contrHf int event, 
VlV-y void *callbackData, int eventDatal, int eventData2) 

int s,q, num; 
switch (event) 
{ 

case EVENT_COMMIT: 
SetCtrlVal ( panelHandle , PANEL_ELEMENT, "loading , Please Waite" ); 
GetPro jectDir (pathname) ; 

status = FileSelectPopup (directory, "wlOO.mat", "*.Mat(Mat file)", 

"Data File", VAL_LOAD__BUTTON , 0, 0, 1, 0 ,' 
pathname) ; 

if (status != VAL_NO_FILE_SELECTED) 
{ 

file_handle = fopen (pathname, "r"); 

for ( s=0 ; s<NoData ; s++ ) 

{ 

for (q=0; q<DataSize; q++) 
{ 

num = fscanf (f ile_handle , "%lf ",&wl[s] [q] ) ; 

} 

fclose( f ile_handle) ; 
Load_DataBase_OK=l ; 

} 

else 
{ 

Load_DataBase_OK=0 ; 
} 



GetPro jectDir (pathname) ; 

status = FileSelectPopup (directory, "blOO . mat" , "*.Mat(Mat file)", 

"Data File", VAL_LOAD_BUTTON , 0, 0, 1, 0, 
pathname ) ; 

if (status != VAL_NO_FILE„SELECTED) 

{ 

file_handle = fopen (pathname, "r" ) ; 

for ( s=0 ; s<NoData ; s++ ) 

{ 

num = fscanf ( f ile_handle , " %lf " ,&bl[s] ) ; 

} 

f close( f ile_handle ) ; 

} 

else — — — 

{ 

Load_DataBase_OK=0 ; 
} 



SetCtrlVal (panelHandle, PANEL_ELEMENT , "load a sample or search" ); 
break; 



+ case EVENT_RIG^B_DOUBLE_CLICK: 



break; 



mi 



/ 



"return 0; 

} 

/*************************************^ 

int CVICALLBACK Load_Sample (int panel, int control, int event, 
void *callbackData , int eventDatal, int eventData2) 

{ 

int i, num,pmax_index,pmin_index; 
double pmax , pmin ; 
switch (event) 
{ 

case EVENT_COMMIT: 
DeleteGraphPlot ( panelHandle , PANEL_WAVEFORM, -1, VAL_IMMEDIATE_DRAW) ; 
SetCtrlVal (panelHandle, PANEL_ELEMENT , "Loading , Please Waite" ); 
GetPro jectDir (pathname) ; 

status = FileSelectPopup (directory, "*.16k", "* .dat(data.dat) " , 

"Data File", VAL_LOAD_BUTTON , 0, 0, l' 0, 
pathname ) ; 

if (status != VAL_N0_FILE_SELECTED) 

{ 

file_handle = fopen (pathname, "r" ); 

for ( i=0 ; i<DataSize ; i++ ) 

{ 

num = fscanf ( f i le_handle , "%lf%lf\n", &P_index[ i ] , &P[ i ] ) ; 
} 

fclose(f ile_handle) ; 
Load_Saraple_OK=l ; 

SetCtrlVal (panelHandle, PANEL_ELEMENT , "Unknown Sample"); 
MaxMinlD (P, DataSize, &pmax , &pmax_index, &pmin, &pmin_index ) ; 
QScalelD (P, DataSize, P_index, &pmax); 
for (i=0; i<DataSize ; i++ ) P[ i ] =3000*P_index [ i ] ; 

PlotY (panelHandle, PANEL_W AVE FORM , P_index, DataSize, VAL_DOUBLE , 
VAL_THIN_LINE, VAL_EMPTY__SQUARE , VAL_S0LID, 1, VAL_YELLOW) ; 

/*- PlotY (panelHandle", PAN EL_W AVE FORM , P, Data-Size", VAL_DOUBLE , 

VAL_THIN_LINE, VAL„EMPTY_SQUARE , VAL_S0LID, 1, VAL_YELLOW) ; 

/* SetAxisScalingMode (panelHandle, PANEL_WAVEFORM , VAL_XAXIS, 

VAL_MANUAL, 500, 10000); 
/* SetAxisRange (panelHandle, PANEL_WAVEFORM , VAL_NO_CHANGE , 500, 10000, 

VAL_AUTOSCALE , 0.0, 1.0); 

*/ 



) / 



L^p^_Sample_OK=0; 

) 

break ; 

case EVENT_RIGHT_DOUBLE_CLICK: 
break ; 

> 

return 0 ; 



/*************************^ 



